home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr49 / 277_01.zip / DEMO.C < prev    next >
Text File  |  1993-04-01  |  1KB  |  49 lines

  1. /* demo for HPGL-Clib */
  2.  
  3. /* Usage: DEMO COM1, for plot to plotter connected to COM1 Port.
  4.       DEMO FILE, for output to file named FILE.
  5.       DEMO COM1 MICRO488, if Micro488 Bus Controller is Present;
  6. */
  7.  
  8. #include <stdio.h>
  9. #include "hpgl.c"
  10.  
  11. main(argc, argv)
  12. int argc;
  13. char *argv[];
  14. {
  15.     FILE *fp;
  16.     char micro488[10];
  17.     char buf[80];
  18.     int micro488add;
  19.     int i;
  20.  
  21.     fp = fopen(argv[1],"w"); /* open in write mode */
  22.     if ( fp == NULL) {
  23.         printf("Can Not Open Port or FILE: %s\n",argv[1]);
  24.         exit(0);
  25.     }
  26.  
  27.     for(i=0; i<10; i++) micro488[i] = NULL; /* NULL micro488 */
  28.  
  29.     if(strcmp(argv[2],"micro488")==0 || strcmp(argv[2],"MICRO488")==0) {
  30.         printf("Micro488 Bus Controller Selected\n");
  31.         printf("Enter Address of Plotter > ");
  32.         gets(buf);
  33.         /* move address from buffer into integer */
  34.         sscanf(buf,"%d",µ488add);
  35.         if(micro488add > 9) 
  36.             sprintf(micro488,"OUTPUT%d",micro488add);
  37.         else 
  38.             sprintf(micro488,"OUTPUT0%d",micro488add);
  39.     }
  40.  
  41.     PLOTTER_INIT(fp,micro488);
  42.     hpgl_scale(fp, 0, 10, 0, 7, micro488); /* scale in inches */
  43.     hpgl_pen_sel(fp, 1, micro488);
  44.     hpgl_plt_abs_uu(fp, 2.0, 3.0, micro488);
  45.     hpgl_abs_dir(fp, (float) 0.0, (float) 1.0, micro488);
  46.     hpgl_label(fp, "HPGL-Clib", ETX, micro488);
  47.     fclose(fp);
  48. }
  49.